home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 107 / 107.d81 / ts viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  36 lines
  1. 10 poke56,32:poke55,32:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke53281,0:poke53280,0:print"[147][129]          [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
  4. 40 print"      [212][201][212][204][197] [211][195][210][197][197][206] [214][201][197][215][197][210]/[208][210][201][206][212][197][210]
  5. 50 [158]57812"unpacker.89",dv,0:[151]780,0:[151]781,0:[151]782,201:[158]65493
  6. 60 [158]57812"intro.shp",dv,0:[151]780,0:[151]781,0:[151]782,32:[158]65493
  7. 70 [158]57812"tswp93 $c000",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  8. 80 [151]251,32:[151]252,224:[151]253,204:[158]51456
  9. 90 [151]53280,0
  10. 100 lf$(0)[178]"(NULL)ascasc":lf$(1)[178]"(NULL)(NULL) "
  11. 110 [153]" 1.cont mid$ust show the picture.
  12. 120 print" 2.[154] [211]how the picture and print it on
  13. 125 [153]"    a 7-pin (1525-emulating) printer.
  14. 130 print" 3.[154] [211]how the picture and print it on
  15. 135 [153]"    an 8-pin (valpson-emulating) printer.
  16. 140 print" 4.[154] [212]oggle linefeed -- "lf$(lf)
  17. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  18. 170 [153]"list  (NULL)ake sure your printer is on-line.
  19. 220 poke198,0
  20. 230 geta$:ifa$<"1"ora$>"5"then230
  21. 232 ifa$="5"then40000
  22. 233 ifa$="4"thenlf=1-lf:poke214,13:print:printtab(23)""lf$(lf):goto230
  23. 235 sys51459
  24. 240 ifa$="2"thensys49155,4,5,lf,0,0,39,24,224:goto280
  25. 250 ifa$="3"thensys49152,4,5,lf,0,0,39,24,224,76,35,65,8,0:goto280
  26. 260 poke198,0
  27. 270 geta$:ifa$=""then270
  28. 280 poke251,32:poke252,224:poke253,204:sys51459
  29. 290 goto230
  30. 10000 open15,8,15,"s0:ts viewer":close15:save"ts viewer",8:end
  31. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  32. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  33. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  34. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  35. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  36.